home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abf.d64 / label printer1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  107 lines
  1. 5 PRINT"[147]"
  2. 20 PRINT"****************************************"
  3. 30 PRINT"*             LABEL PRINTER            *"
  4. 40 PRINT"*                   BY                 *"
  5. 45 PRINT"*              RON DULANEY             *"
  6. 50 PRINT"****************************************"
  7. 60 PRINT"     THIS PROGRAM IS DESIGNED TO PRINT"
  8. 70 PRINT"LABELS NOT USED FOR ADDRESSES. THIS IS"
  9. 80 PRINT"MY FIRST ATTEMPT AT AN UPLOAD FOR Q LINK"
  10. 90 PRINT""
  11. 100 PRINT"    IT IS ALSO SO THAT I HAVE SOMETHING"
  12. 120 PRINT"TO USE MYSELF TO LABEL MY DOCUMENTS AND"
  13. 130 PRINT"LISTS THAT I KEEP IN 3 RING NOTEBOOK"
  14. 140 PRINT"BINDERS.  I HOPE YOU LIKE IT AND CAN"
  15. 150 PRINT"USE IT"
  16. 160 PRINT"               PRESS RETURN"
  17. 170 INPUT
  18. 180 PRINT"[147]"
  19. 190 PRINT"****************************************"
  20. 200 PRINT"*     IF THIS LITTLE PROGRAM DOES YOU  *"
  21. 210 PRINT"* SOME GOOD YOU MIGHT SEND A CARD OR A *"
  22. 220 PRINT"* BUCK TO ME AT: RR#1, GALVESTON, IN.  *"
  23. 230 PRINT"* 46932. OR E MAIL TO RONALDD3 HAVE FUN*"
  24. 240 PRINT"****************************************"
  25. 242 PRINT:PRINT"              TEST PRINT? Y/N"
  26. 244 INPUT B$:IF B$="Y" THEN GOTO 900
  27. 245 IF B$="N" GOTO 248
  28. 246 PRINT"                TEST AGAIN? Y/N"
  29. 247 INPUT C$:IF C$="Y" GOTO 900:IF C$="N" GOTO 248
  30. 248 PRINT"[147]"
  31. 250 PRINT"  **************       UP TO 5 LINES"
  32. 260 PRINT"  * 3 LINES OF *          OF DATA  "
  33. 270 PRINT"  * DATA WITH  *         WITHOUT A "
  34. 280 PRINT"  * A BORDER   *       BORDER AROUND"
  35. 290 PRINT"  **************            IT[160][160][160][160]"
  36. 300 PRINT""
  37. 310 PRINT"        A                    B"
  38. 320 PRINT"  30 CHARECTORS        32 CHARECTORS"
  39. 325 PRINT""
  40. 330 PRINT" TYPE A OR B AND PRESS RETURN TO CHOOSE"
  41. 340 INPUT A$: IF A$="A" GOTO 400
  42. 350 IF A$="B" GOTO 700
  43. 400 GOTO 405
  44. 405 PRINT"[147]"
  45. 410 PRINT"PRINT 3 LINES OF DATA 1 LINE AT EACH"
  46. 420 PRINT"PROMPT. TO LEAVE A LINE BLANK SIMPLY"
  47. 430 PRINT"PRESS RETURN AT THAT PROMPT"
  48. 440 PRINT"                 LINE 1"
  49. 450 INPUT E$
  50. 455 PRINT"                 LINE 2"
  51. 460 INPUT F$
  52. 465 PRINT"                 LINE 3"
  53. 470 INPUT G$
  54. 475 PRINT"           "E$
  55. 480 PRINT"           "F$
  56. 485 PRINT"           "G$
  57. 490 PRINT:PRINT"           IS THIS CORRECT? Y/N":INPUT I$:IF I$="Y" GOTO 500
  58. 495 IF I$="N" GOTO 405
  59. 500 OPEN3,4:CMD3
  60. 501 PRINT#3,"  **********************************"
  61. 510 PRINT#3,"   "E$
  62. 520 PRINT#3,"   "F$
  63. 530 PRINT#3,"   "G$
  64. 540 PRINT#3,"  **********************************"
  65. 541 CLOSE 3,4
  66. 545 PRINT:PRINT"             PRINT ANOTHER? Y/N"
  67. 550 INPUT L$:IF L$="Y" GOTO 248
  68. 560 IF L$="N" THEN END
  69. 561 END
  70. 565 CLOSE 4
  71. 699 PRINT"[147]"
  72. 700 PRINT"TYPE 5 LINES OF DATA 1 AT EACH PROMPT"
  73. 710 PRINT"TO LEAVE A LINE BLANK SIMPLY PRESS"
  74. 720 PRINT"RETURN AT THAT PROMPT."
  75. 725 PRINT"                 LINE 1":INPUT D$
  76. 730 PRINT"                 LINE 2":INPUT X$
  77. 735 PRINT"                 LINE 3":INPUT Y$
  78. 740 PRINT"                 LINE 4":INPUT Z$
  79. 745 PRINT"                 LINE 5":INPUT H$
  80. 750 PRINT:PRINT"            "D$:PRINT"            "X$:PRINT"            "Y$
  81. 755 PRINT"            "Z$
  82. 756 PRINT"            "H$
  83. 760 PRINT:PRINT"           IS THIS CORRECT? Y/N":INPUT M$:IF M$="Y" GOTO 800
  84. 765 IF M$="N" GOTO 699
  85. 800 OPEN3,4
  86. 801 PRINT#3,"   "D$
  87. 810 PRINT#3,"   "X$
  88. 820 PRINT#3,"   "Y$
  89. 830 PRINT#3,"   "Z$
  90. 840 PRINT#3,"   "H$
  91. 842 CLOSE 3,4
  92. 845 PRINT:PRINT"            PRINT ANOTHER? Y/N"
  93. 850 INPUT J$:IF J$="Y" GOTO 248
  94. 860 IF J$="N" THEN CLOSE 3,4
  95. 861 END
  96. 865 PRINT"A WITH BORDER":PRINT"B NO BORDER
  97. 870 [133] K$:[139] K$[178]"A" [137] 500
  98. 880 [139] K$[178]"B" [137] 700
  99. 900 [159]3,4:[157]3
  100. 901 [152]3,"  **********************************"
  101. 910 [152]3,"  *                                *"
  102. 920 [152]3,"  *         YOUR DATA HERE         *"
  103. 930 [152]3,"  *                                *"
  104. 940 [152]3,"  **********************************"
  105. 945 [160]3,4
  106. 950 [137] 246
  107.